home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / STRINGS.SWG / 0004_FIND-STR.PAS.pas < prev    next >
Pascal/Delphi Source File  |  1993-05-28  |  468b  |  26 lines
  1. Function FirstOccurence(s : String;
  2.                         c : Char) : Integer; Assembler;
  3. Asm
  4.   CLD
  5.   LES    DI, s
  6.   xor    CH, CH
  7.   xor    AH, AH
  8.   MOV    CL, ES:[DI]
  9.   JCXZ   @1
  10.   MOV    BX, CX
  11.   inC    DI
  12.   MOV    AL, c
  13.   REPNE  SCASB
  14.   JCXZ   @1
  15.   SUB    BX, CX
  16.   XCHG   AX, BX
  17.   JMP    @2
  18. @1:
  19.   xor    AX, AX
  20. @2:
  21. end;
  22.  
  23. begin   { This example returns 7 }
  24.   WriteLn(FirstOccurence('smullen met de pet op dat is pas je ware', 'n'));
  25. end.
  26.